home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / ERRCODE.PRG < prev    next >
Text File  |  1991-12-17  |  1KB  |  20 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ ERRCODE.PRG                                             ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║ Application Developed in _Using FoxPro 2_               ║
  7. *       ║                                                         ║
  8. *       ║ Lisa C. Slater and Steven E. Arnott                     ║
  9. *       ║                                                         ║
  10. *       ║ Copyright (c) 1991 Que Publishing                       ║
  11. *       ║                                                         ║
  12. *       ╙─────────────────────────────────────────────────────────╜
  13.  
  14.  
  15. IF EMPTY(EVALUATE("m."+VARREAD()))
  16.   RETURN PROPER(VARREAD())+" field cannot be empty."
  17. ELSE
  18.   RETURN  EVALUATE("m."+VARREAD()) +" already in use in "+;
  19.         PROPER(VARREAD())+" field."
  20. ENDIF